Option Explicit
Sub N_Sample020()
    Dim myAr As Variant
    Dim i1   As Long
    Dim i2   As Long
    Dim i3   As Long
    Dim i4   As Long
    Dim i5   As Long
    '}Cw
    myAr = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")
    For i1 = 0 To 9
        For i2 = i1 + 1 To 9
            For i3 = i2 + 1 To 9
                For i4 = i3 + 1 To 9
                    For i5 = i4 + 1 To 9
                        Debug.Print myAr(i1) & myAr(i2) _
                            & myAr(i3) & myAr(i4) & myAr(i5)
                    Next
                Next
            Next
        Next
    Next
End Sub
